home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Applications 2002 November / SGI IRIX 6.5 Applications 2002 November.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / routing / static.frm.z / static.frm
Encoding:
Text File  |  2002-06-12  |  9.1 KB  |  350 lines
  1. #!/usr/bin/perl5
  2. #
  3. # static.cgi
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: static.frm,v 1.11 1998/02/14 01:55:12 shotes Exp $
  21.  
  22. require "/usr/OnRamp/lib/OnRamp.pm";
  23. require "/usr/OnRamp/lib/java.pm";
  24.  
  25. $conf = "/etc/config/static-route.options";
  26. $dummy = "/tmp/static.dummy";
  27. $myname = "static.cgi";
  28. $help_page = "static-help.html";
  29. $title = "Static Routing";
  30.  
  31. $js_main =
  32. "type = \"route\";
  33. $js_account_main
  34. $js_error_box
  35. $js_help
  36. $js_ip
  37. function testAdd(form) {
  38.     if (!testRoute(form.destination)) return (false);
  39.     return (true);
  40. }
  41. function testRoute(Ctrl) {
  42.     if (Ctrl.value == \"\") { 
  43.         errorBox (Ctrl, \"To add a new route, first enter \\na \"
  44.                 + \"destination IP address.\"); 
  45.         return (false); 
  46.     }
  47.     if (Ctrl.value == \"default\") return (true);
  48.     if (!testIPaddress(Ctrl.value,false)) { 
  49.         errorBox (Ctrl, \"The destination address \" + Ctrl.value 
  50.                 + \"\\nis invalid.\"); 
  51.         return (false); 
  52.     }
  53.     return (true);
  54. }";
  55.  
  56. $js_add =
  57. "$js_standard
  58. $js_error_box
  59. $js_help
  60. $js_ip
  61. function checkForm(form)  {
  62.     if (!testIP(form.route)) return (false);
  63.     return (true);
  64. }
  65. function testIP(Ctrl) {
  66.     if (Ctrl.value == \"\") { 
  67.         errorBox (Ctrl, \"The IP address of the router \\nis required.\"); 
  68.         return (false); 
  69.     }
  70.     if (!testIPaddress(Ctrl.value,false)) { 
  71.         errorBox (Ctrl, \"The router address \" + Ctrl.value 
  72.                 + \"\\nis invalid.\"); 
  73.         return (false); 
  74.     }
  75.     return (true);
  76. }";
  77.  
  78. $js_edit =
  79. "$js_standard
  80. $js_error_box
  81. $js_help
  82. $js_ip
  83. function checkForm(form) {
  84.     if (!testIP(form.route)) return (false);
  85.     return (true);
  86. }
  87. function testIP(Ctrl) {
  88.     if (Ctrl.value == \"\") { 
  89.         errorBox (Ctrl, \"The IP address of the router \\nis required.\"); 
  90.         return (false); 
  91.     }
  92.     if (!testIPaddress(Ctrl.value,false)) { 
  93.         errorBox (Ctrl, \"The router address \" + Ctrl.value 
  94.                 + \"\\nis invalid.\"); 
  95.         return (false); 
  96.     }
  97.     return (true);
  98. }";
  99.  
  100. print "Content-type: text/html\n\n";
  101.  
  102. &get_fields;
  103. &getGateways;
  104.  
  105. $delete = 0;
  106.  
  107. if (%fld) {
  108.     $help = $document_root . $ENV{"SCRIPT_NAME"};
  109.     $help =~ s/cgi$/hlp/;
  110.     exec $help if ($fld{'help'} eq "Help");
  111.  
  112.     $fld{'chosen'} =~ /([\w.]+)/;
  113.     $fld{'chosen'} = $1;
  114.     if ($fld{"add"}) { 
  115.         &validAdd;
  116.         $val{'metric'} = 1;
  117.         &getAdd;
  118.         exit 0; 
  119.     }
  120.     elsif ($fld{"doAdd"}) {
  121.         &valid(0);
  122.         &doAdd;
  123.         $fld{'destination'} = "";
  124.         &getGateways;
  125.     }
  126.     elsif ($fld{"doEdit"}) {
  127.         &valid(1);
  128.         &doEdit;
  129.         &getGateways;
  130.     }
  131.     elsif ($fld{"edit"}) {
  132.         &error(2,"To edit an existing route, first choose one from the list,
  133.             then click the edit button.") if !$fld{'chosen'};
  134.         &getGateways($fld{'chosen'});
  135.     $val{'old_route'} = $rout;
  136.     $val{'old_type'} = $type;
  137.         &putEdit;
  138.         &getEdit;
  139.         exit 0; 
  140.     }
  141.     elsif ($fld{"delete"}) { 
  142.         &error(2,"To delete an existing route, first choose one from the 
  143.             list, then click the delete button.") if !$fld{'chosen'};
  144.         $delete = 1;
  145.         $message = qq|Click "Ok" to save changes.|; 
  146.     }
  147.     elsif ($fld{"doit"}) { 
  148.         if ($fld{'delGateway'}) { &doDelete; };
  149.         &getGateways;
  150.     }
  151.     else {
  152.         $message = "Use buttons to submit form.";
  153.     }
  154.  
  155.     if (!$message) { $message = "No change made."; }
  156.     %val = %fld; 
  157. } 
  158.  
  159. &generic;
  160.  
  161. sub valid {
  162.     &error($_[0],"Invalid route address.") if !$fld{'route'} || &check_ipaddr($fld{'route'});
  163. } 
  164.  
  165. sub validAdd {
  166.     &error(2,"You must provide a route address.") if !$fld{'destination'};
  167.     if ($fld{'destination'} ne "default") {
  168.         &error(2,"Invalid route address.") 
  169.         if &check_ipaddr($fld{'destination'});   
  170.     }
  171. }
  172.  
  173. sub error {
  174.     &error_block($_[1]);
  175.     %val = %fld;
  176.     if ($_[0] == 0) { &getAdd; }
  177.     elsif ($_[0] == 1) { &getEdit; }
  178.     else { &generic; }
  179.     exit 0;
  180. }
  181.  
  182. sub doDelete {
  183.     open(IN,"< $conf");
  184.     open(OUT,"> $dummy");
  185.     while(<IN>) {
  186.         @items = split(/\s+/);
  187.         if ($items[3] eq $fld{'delGateway'}) { 
  188.         $cmd = $_;
  189.         chop $cmd;
  190.         $cmd =~ s/add/delete/;
  191.         system("$cmd > /dev/null 2>&1");
  192.         print OUT "# $_"; 
  193.     }
  194.         else { print OUT $_; }
  195.     }
  196.     close(IN);
  197.     close(OUT);
  198.     rename($dummy,$conf);
  199.  
  200.     $message .= "Route deleted.";
  201. }
  202.  
  203. sub doAdd {
  204.     $cmd = "/usr/etc/route add -$fld{'type'} $fld{'destination'} $fld{'route'}";
  205.     system("$cmd > /dev/null 2>&1");
  206.  
  207.     open(OUT,">> $conf");
  208.     print OUT "$cmd\n";
  209.     close(OUT);
  210.  
  211.     $message = "Route added.";
  212. }
  213.  
  214. sub putEdit {
  215.     $val{'type'} = $type;
  216.     $val{'route'} = $rout;
  217. }
  218.  
  219. sub doEdit {
  220.     $cmd2 = "/usr/etc/route delete -$fld{'old_type'} $fld{'chosen'} $fld{'old_route'}";
  221.     system("$cmd2 > /dev/null 2>&1");
  222.  
  223.     $cmd1 = "/usr/etc/route add -$fld{'type'} $fld{'chosen'} $fld{'route'}";
  224.     system("$cmd1 > /dev/null 2>&1");
  225.  
  226.     open(IN,"< $conf");
  227.     open(OUT,"> $dummy");
  228.     while(<IN>) {
  229.     @items = split(/\s+/);
  230.     if ($items[3] eq $fld{'chosen'}) { print OUT "# $_"; }
  231.     else { print OUT $_; }
  232.     }
  233.     print OUT "$cmd1\n";
  234.     close(IN);
  235.     close(OUT);
  236.     rename($dummy,$conf);
  237.  
  238.     $message .= "Route edited.";
  239. }
  240.     
  241. sub getEdit {
  242.     &js_title_block($title,$js_edit);
  243.     &header_block("Edit Route");
  244.  
  245.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  246.  
  247.     print "<input type=hidden name=chosen value=$fld{'chosen'}>\n";
  248.     print "<input type=hidden name=old_route value=$val{'old_route'}>\n";
  249.     print "<input type=hidden name=old_type value=$val{'old_type'}>\n";
  250.  
  251.     print "<center><table width=450>";
  252.  
  253.     print "<tr><th align=left>IP address of route destination:</th><td>
  254.         <tt>$fld{'chosen'}</tt></td></tr>";
  255.     print "<tr><th align=left>IP address of router:</th><td>",
  256.         &text('route',$val{'route'},16),"</td></tr>";
  257.     print "<tr><th align=left>Type of network route:</th><td>",
  258.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  259.  
  260.     print "</table></center>";
  261.  
  262.     print &js_buttons('doEdit','Ok','onClick="markOK()"',
  263.         'onClick="markOther()"',
  264.         "onClick=\"do_help('$help_page'); return (false)\"");
  265.     
  266.     print '</form>';
  267. }
  268.  
  269. sub getAdd {
  270.     &js_title_block($title,$js_add);
  271.     &header_block("Add New Route");
  272.  
  273.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  274.  
  275.     print "<input type=hidden name=destination value=$fld{'destination'}>";
  276.  
  277.     print "<center><table width=450>";
  278.  
  279.     print "<tr><th align=left>IP address of route destination:</th><td>
  280.         <tt>$fld{'destination'}</tt></td></tr>";
  281.     print "<tr><th align=left>IP address of router:</th><td>",
  282.         &text('route',$val{'route'},16),"</td></tr>";
  283.     print "<tr><th align=left>Type of network route:</th><td>",
  284.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  285.  
  286.     print "</table></center>";
  287.  
  288.     print &js_buttons('doAdd','Ok','onClick="markOK()"','onClick="markOther()"',
  289.         "onClick=\"do_help('$help_page'); return (false)\"");
  290.     
  291.     print '</form>';
  292. }
  293.    
  294. sub generic {
  295.     &js_title_block($title,$js_main);
  296.     &header_block($title);
  297.  
  298.     print "<i>$message</i>";
  299.  
  300.     print "<form name=AccountForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  301.  
  302.     print "<center><table width=450>\n";
  303.  
  304.     print "<tr><th align=left>";
  305.     print qq|<input type=submit name=add value="Add New Route" onClick="markAdd()">|;
  306.     print "\n</th><td><input size=19 type=text name=destination 
  307.         value=$val{'destination'}>";
  308.     print "</td></tr>\n";
  309.  
  310.     if ($delete) { 
  311.         undef @locList;
  312.         foreach $arg (@routes) {
  313.             if ($arg ne $fld{'chosen'}) { 
  314.             push(@locList,$arg); }
  315.         }
  316.         print "<input type=hidden name=delGateway value=$fld{'chosen'}>"; 
  317.     } else { @locList = @routes; }
  318.  
  319.     print "<tr><th align=left>";
  320.     print qq|<input type=submit name=edit value="Edit Selected Route" onClick="markEdit()">|;
  321.     print "\n</th><td rowspan=2>", &choice_list(*locList,"chosen",20), "</td></tr>\n";
  322.  
  323.     print "<tr><th align=left>";
  324.     print qq|<input type=submit name=delete value="Delete Selected Route" onClick="markDelete()">|;
  325.     print "</th></tr>\n";
  326.     print "\n</table></center>\n";
  327.  
  328.     print &js_buttons('doit','Ok','onClick="markOther()"',
  329.         'onClick="markOther()"',
  330.         "onClick=\"do_help('$help_page'); return (false)\"");
  331.     
  332.     print '</form>';
  333. }
  334.  
  335. sub getGateways {
  336.     undef @routes;
  337.  
  338.     open(GATE, "< $conf");
  339.     while (<GATE>) {
  340.     @items = split(/\s+/);
  341.     if ($items[0] ne 'route' && $items[1] ne 'add') { next; }
  342.     push(@routes,$items[3]);
  343.     if ($items[3] eq $_[0]) {
  344.         $type = substr($items[2],1);
  345.         $rout = $items[4];
  346.     }
  347.     }
  348.     close(GATE);
  349. }
  350.